PC World Tⁿrkiye Online - G÷rsel Programlama

╟OKLUORTAM DOSYALARINI ╟ALI▐TIRMAK

DAHA ÷nceki aylarda AVI dosyalar²n² oynatmak, WAV dosyalar²n² τalmak ba■l²klar² alt²nda verdi≡imiz pⁿf noktalar² size τok uzun gelebilir. ╟okluortam dosyalar²n² kendilerine ait API'lerle τa≡²rmak daha h²zl² ve daha sa≡l²kl² olsa da size hiτ bir seτene≡i ayarlama olana≡² vermeyen bir DLL dosyas²n² τa≡²rarak da sistemse tan²ml² tⁿm τokluortam dosyalar²n² minimum zahmetle τal²■t²rabilirsiniz.

' A■a≡²daki sat²r formlardan ba≡²ms²z bir modⁿle konulacak
Declare Function mciExecute Lib ' MMSystem' (ByVal FileName as String) As Integer
' Fonksiyonu a■a≡²daki gibi kullanabilirsiniz.
' T²rnak iτindeki play komutu sabit kalmal²d²r.
Sub Form1_Click ()
' x de≡eri dosyan²n ba■ar²l² olarak τal²■²p τal²■mad²≡²n² d÷ndⁿrⁿr.
x = mciExecute(' Play c:\windows\ding.wav' )
x = mciExecute(' Play test.avi' )
End Sub